type
   TMyProc = procedure;

TMyProc();
